home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / listx / color4.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1997-11-17  |  8.9 KB  |  243 lines
  1. VERSION 4.00
  2. Begin VB.Form frmColors 
  3.    BorderStyle     =   0  'None
  4.    ClientHeight    =   5835
  5.    ClientLeft      =   2685
  6.    ClientTop       =   4155
  7.    ClientWidth     =   7830
  8.    ControlBox      =   0   'False
  9.    Height          =   6240
  10.    Icon            =   "Color4.frx":0000
  11.    Left            =   2625
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MDIChild        =   -1  'True
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   5835
  17.    ScaleWidth      =   7830
  18.    ShowInTaskbar   =   0   'False
  19.    Top             =   3810
  20.    Width           =   7950
  21.    Begin VB.Label Label1 
  22.       Alignment       =   2  'Center
  23.       Caption         =   "List/X+ gives you complete control over the colors in the list box.  "
  24.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  25.          Name            =   "MS Sans Serif"
  26.          Size            =   9.75
  27.          Charset         =   0
  28.          Weight          =   400
  29.          Underline       =   0   'False
  30.          Italic          =   0   'False
  31.          Strikethrough   =   0   'False
  32.       EndProperty
  33.       Height          =   1215
  34.       Left            =   360
  35.       TabIndex        =   3
  36.       Top             =   4200
  37.       Width           =   7095
  38.    End
  39.    Begin MabryCtl.MList MList3 
  40.       Height          =   3555
  41.       Left            =   5265
  42.       TabIndex        =   2
  43.       Top             =   345
  44.       Width           =   2175
  45.       _ExtentX        =   3836
  46.       _ExtentY        =   6271
  47.       BackColor       =   -2147483633
  48.       Caption         =   "Caption"
  49.       CaptionAlignment=   2
  50.       ForeColor       =   -2147483635
  51.       Object.TabStop         =   -1  'True
  52.       ThreedShadowColor=   -2147483627
  53.       MousePointer    =   -842150451
  54.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  55.          Name            =   "MS Sans Serif"
  56.          Size            =   8.25
  57.          Charset         =   0
  58.          Weight          =   400
  59.          Underline       =   0   'False
  60.          Italic          =   0   'False
  61.          Strikethrough   =   0   'False
  62.       EndProperty
  63.       BeginProperty Columns {23BAA6DE-05A6-11D1-9E15-0020AFD6A9D5} 
  64.          ColumnCount     =   3
  65.          BeginProperty Column0 {23BAA6E0-05A6-11D1-9E15-0020AFD6A9D5} 
  66.             Object.Width           =   35
  67.             MinWidth        =   25
  68.             MaxWidth        =   75
  69.             UserResizeEnabled=   -1
  70.             Heading         =   "Col 1"
  71.             Object.Visible         =   -1
  72.             ColumnAlignment =   0
  73.             HeadingAlignment=   0
  74.          EndProperty
  75.          BeginProperty Column1 {23BAA6E0-05A6-11D1-9E15-0020AFD6A9D5} 
  76.             Object.Width           =   35
  77.             MinWidth        =   0
  78.             MaxWidth        =   -1
  79.             UserResizeEnabled=   -1
  80.             Heading         =   "Col 2"
  81.             Object.Visible         =   -1
  82.             ColumnAlignment =   0
  83.             HeadingAlignment=   0
  84.          EndProperty
  85.          BeginProperty Column2 {23BAA6E0-05A6-11D1-9E15-0020AFD6A9D5} 
  86.             Object.Width           =   0
  87.             MinWidth        =   0
  88.             MaxWidth        =   -1
  89.             UserResizeEnabled=   -1
  90.             Heading         =   "Col 3"
  91.             Object.Visible         =   -1
  92.             ColumnAlignment =   0
  93.             HeadingAlignment=   0
  94.          EndProperty
  95.       EndProperty
  96.    End
  97.    Begin MabryCtl.MList MList2 
  98.       Height          =   3540
  99.       Left            =   2805
  100.       TabIndex        =   1
  101.       Top             =   360
  102.       Width           =   2175
  103.       _ExtentX        =   3836
  104.       _ExtentY        =   6244
  105.       Caption         =   "Multiline Headings"
  106.       CaptionAlignment=   2
  107.       Object.TabStop         =   -1  'True
  108.       ThreedShadowColor=   -2147483627
  109.       MousePointer    =   -842150451
  110.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  111.          Name            =   "MS Sans Serif"
  112.          Size            =   8.25
  113.          Charset         =   0
  114.          Weight          =   400
  115.          Underline       =   0   'False
  116.          Italic          =   0   'False
  117.          Strikethrough   =   0   'False
  118.       EndProperty
  119.       BeginProperty Columns {23BAA6DE-05A6-11D1-9E15-0020AFD6A9D5} 
  120.          ColumnCount     =   3
  121.          BeginProperty Column0 {23BAA6E0-05A6-11D1-9E15-0020AFD6A9D5} 
  122.             Object.Width           =   35
  123.             MinWidth        =   0
  124.             MaxWidth        =   -1
  125.             UserResizeEnabled=   -1
  126.             Heading         =   "Col 1"
  127.             Object.Visible         =   -1
  128.             ColumnAlignment =   2
  129.             HeadingAlignment=   0
  130.          EndProperty
  131.          BeginProperty Column1 {23BAA6E0-05A6-11D1-9E15-0020AFD6A9D5} 
  132.             Object.Width           =   35
  133.             MinWidth        =   0
  134.             MaxWidth        =   -1
  135.             UserResizeEnabled=   -1
  136.             Heading         =   "Col 2"
  137.             Object.Visible         =   -1
  138.             ColumnAlignment =   2
  139.             HeadingAlignment=   2
  140.          EndProperty
  141.          BeginProperty Column2 {23BAA6E0-05A6-11D1-9E15-0020AFD6A9D5} 
  142.             Object.Width           =   20
  143.             MinWidth        =   0
  144.             MaxWidth        =   -1
  145.             UserResizeEnabled=   -1
  146.             Heading         =   "Col 3"
  147.             Object.Visible         =   -1
  148.             ColumnAlignment =   2
  149.             HeadingAlignment=   1
  150.          EndProperty
  151.       EndProperty
  152.    End
  153.    Begin MabryCtl.MList MList1 
  154.       Height          =   3540
  155.       Left            =   360
  156.       TabIndex        =   0
  157.       Top             =   360
  158.       Width           =   2175
  159.       _ExtentX        =   3836
  160.       _ExtentY        =   6244
  161.       Caption         =   "Caption"
  162.       CaptionAlignment=   2
  163.       Object.TabStop         =   -1  'True
  164.       ThreedShadowColor=   -2147483627
  165.       MousePointer    =   -842150451
  166.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  167.          Name            =   "MS Sans Serif"
  168.          Size            =   8.25
  169.          Charset         =   0
  170.          Weight          =   400
  171.          Underline       =   0   'False
  172.          Italic          =   0   'False
  173.          Strikethrough   =   0   'False
  174.       EndProperty
  175.       BeginProperty Columns {23BAA6DE-05A6-11D1-9E15-0020AFD6A9D5} 
  176.          ColumnCount     =   3
  177.          BeginProperty Column0 {23BAA6E0-05A6-11D1-9E15-0020AFD6A9D5} 
  178.             Object.Width           =   40
  179.             MinWidth        =   0
  180.             MaxWidth        =   -1
  181.             UserResizeEnabled=   -1
  182.             Heading         =   "Col 1"
  183.             Object.Visible         =   -1
  184.             ColumnAlignment =   0
  185.             HeadingAlignment=   0
  186.          EndProperty
  187.          BeginProperty Column1 {23BAA6E0-05A6-11D1-9E15-0020AFD6A9D5} 
  188.             Object.Width           =   40
  189.             MinWidth        =   0
  190.             MaxWidth        =   -1
  191.             UserResizeEnabled=   -1
  192.             Heading         =   "Col 2"
  193.             Object.Visible         =   -1
  194.             ColumnAlignment =   0
  195.             HeadingAlignment=   0
  196.          EndProperty
  197.          BeginProperty Column2 {23BAA6E0-05A6-11D1-9E15-0020AFD6A9D5} 
  198.             Object.Width           =   0
  199.             MinWidth        =   0
  200.             MaxWidth        =   -1
  201.             UserResizeEnabled=   -1
  202.             Heading         =   "Col 3"
  203.             Object.Visible         =   -1
  204.             ColumnAlignment =   0
  205.             HeadingAlignment=   0
  206.          EndProperty
  207.       EndProperty
  208.    End
  209. Attribute VB_Name = "frmColors"
  210. Attribute VB_Creatable = False
  211. Attribute VB_Exposed = False
  212. Option Explicit
  213. Private Sub Form_Load()
  214.    Dim i As Integer
  215.    ' Make a multiline caption
  216.    MList1.Caption = "Multiline" & Chr(13) & "Captions"
  217.    ' And multiline headings
  218.    MList2.Columns(0).Heading = "Col" & Chr(13) & "One"
  219.    MList2.Columns(1).Heading = "Col" & Chr(13) & "Two"
  220.    MList2.Columns(2).Heading = "Col" & Chr(13) & "Three"
  221.    ' Put something in the lists
  222.    For i = 1 To 39
  223.       MList1.AddItem CStr(i) & ",bar" & Chr(13) & "zzz,baz"
  224.       MList2.AddItem CStr(i) & ",bar" & Chr(13) & "zzz,baz"
  225.       MList3.AddItem CStr(i) & ",bar" & Chr(13) & "zzz,baz"
  226.    Next
  227.    ' Set column colors for MList1
  228.    MList1.Columns(0).ForeColor = RGB(255, 0, 0)
  229.    MList1.Columns(1).BackColor = RGB(255, 255, 0)
  230.    MList1.Columns(1).ForeColor = RGB(0, 0, 255)
  231.    ' Set item colors for MList2
  232.    For i = 1 To 39
  233.       If (i Mod 2 = 1) Then
  234.          MList2.ItemBackColor(i - 1) = RGB(0, 255, 255)
  235.          MList2.ItemHiliteTextColor(i - 1) = RGB(0, 255, 255)
  236.       End If
  237.    Next
  238.    ' Setup one specially colored row in MList3
  239.    MList3.ItemForeColor(4) = RGB(255, 0, 0)
  240.    MList3.ItemHiliteColor(4) = RGB(128, 0, 0)
  241.    MList3.ItemHiliteTextColor(4) = RGB(0, 255, 255)
  242. End Sub
  243.